home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / misc / sci / lynx / installation / install lynx < prev    next >
Encoding:
Text File  |  1995-05-08  |  6.7 KB  |  353 lines
  1. ; 'Lynx' installer script
  2. ; by Stéphane poirier
  3.  
  4. ;--------------------------------------------------------------------
  5. ;set text vars
  6. ;
  7.  
  8. (set #inst
  9.   (cat "\nInstallation script of \nLynx\n\n"
  10.        "For more detail read the manual.\n\n"
  11.        "Lynx is copyright (C) by Stéphane Poirier\n"
  12.        "This product is SHAREWARE.\nSee manual for registration\n"
  13. ))
  14.  
  15. (set #rep
  16.   (cat "Select drawer (or partition) to install Lynx.\n"
  17.        "A drawer named 'Lynx' will be created")
  18. )
  19.  
  20. (set #versions
  21.   (cat "Select Lynx versions to install")
  22. )
  23.  
  24. (set #version8
  25.   (cat "Lynx 8 bits")
  26. )
  27.  
  28. (set #version16
  29.   (cat "Lynx 16 bits")
  30. )
  31.  
  32. (set #MagicWB
  33.   (cat "\n\nDo you want to install the\n"
  34.        "Magic Workbench style icons ?")
  35. )
  36.  
  37. (set #scripts
  38.   (cat "\nA file named 'Scripts' already exists,\nshould I replace it ?")
  39. )
  40.  
  41. (set #Filtres
  42.   (cat "\nA file named 'Filters' already exists,\nshould I replace it ?")
  43. )
  44.  
  45. (set #Palettes
  46.   (cat "\nA drawer named 'Palettes' already exists,\nshould I copy the new palettes ?")
  47. )
  48.  
  49. (set #startup
  50.    (cat "\n\nI'll add a command to assign 'Lynx:'\n"
  51.         "in your user-startup file")
  52. )
  53.  
  54. (set #exit
  55.   (cat "Have fun !\n")
  56. )
  57.  
  58. ;--------------------------------------------------------------------
  59. ; Chaines de caractère pour installation en français
  60. ;
  61. (if (= @language "français")
  62. (
  63. (set #inst
  64.   (cat "\n\nBonjour !\n\n"
  65.        "Ce script va installer Lynx sur votre disque dur.\n\n"
  66.        "Lynx est copyright (C) by Stéphane Poirier\n"
  67.        "\nCe logiciel est SHAREWARE.\nVoir le manuel pour l'enrigstrement\n"
  68. ))
  69.  
  70. (set #rep
  71.   (cat "Choisissez le répertoire (ou la partition)\noù installer Lynx.\n"
  72.        "Un répertoire nommé 'Lynx' y sera créé")
  73. )
  74.  
  75. (set #versions
  76.   (cat "Choisissez les versions d'Lynx à installer")
  77. )
  78.  
  79. (set #version8
  80.   (cat "Lynx 8 bits")
  81. )
  82.  
  83. (set #version16
  84.   (cat "Lynx 16 bits")
  85. )
  86.  
  87. (set #MagicWB
  88.   (cat "\n\nVoulez-vous installer les\n"
  89.        "icônes de style Magic Workbench ?")
  90. )
  91.  
  92. (set #scripts
  93.   (cat "\nUn fichier nommé 'Scripts' est existe déjà,\nDois-je le remplacer ?")
  94. )
  95.  
  96. (set #Filtres
  97.   (cat "\nUn fichier nommé 'Filters' est existe déjà,\nDois-je le remplacer ?")
  98. )
  99.  
  100. (set #Palettes
  101.   (cat "\nUn répertoire nommé 'Palette' est existe déjà,\n"
  102.        "Dois-je copier les nouvelles palettes de couleur ?")
  103. )
  104.  
  105. (set #startup
  106.    (cat "\n\nJe vais ajouter une commande à\n"
  107.         "votre fichier 'User-startup' pour assigner\n"
  108.         "assigner 'Lynx:' au répertoir où se trouvera Lynx"))
  109.  
  110. (set #exit
  111.   (cat "Bonne découverte !\n"))
  112.  
  113. ; Modifie les chaînes de caractère système
  114. ;
  115. (set @abort-button "Abandonner installation")
  116.  
  117. )
  118. )
  119. ;--------------------------------------------------------------------
  120. ; define names for source files
  121. ;
  122. (set Prog8Name "/Lynx-8")
  123. (set Prog16Name "/Lynx-16")
  124. (set ScriptsName "/Scripts")
  125. (set FiltersName "/Filters")
  126. (set PalName "/Palettes")
  127. (set FontName "/Fonts")
  128. (set RexxName "/Rexx")
  129. (set DocName "/Lynx.guide")
  130.  
  131. ;====================================================================
  132. ;install
  133. ;====================================================================
  134.  
  135.  
  136. (message #inst)
  137.  
  138. (welcome)
  139.  
  140. (set res
  141.          (askoptions (prompt #versions)
  142.                      (help @askchoice-help)
  143.                      (default -1)
  144.                      (choices #version8 #version16)))
  145.  
  146. ;
  147. ; Set installation directory
  148. ;
  149. (set toDir
  150.      (askdir (prompt #rep)
  151.              (default "ram:")
  152.              (help @askdir-help)))
  153.  
  154. (if (= (substr toDir (- (strlen toDir) 1) 1) ":")
  155.   (set DestDir
  156.        (cat toDir "Lynx"))
  157.   (set DestDir
  158.        (cat toDir "/Lynx"))
  159. )
  160.  
  161. (set @default-dest DestDir)
  162.  
  163. (if ( = (exists DestDir (noreq)) 0)
  164.     (
  165.      (makedir DestDir (infos))
  166.     )
  167. )
  168.  
  169. (complete 0)
  170.  
  171. ;
  172. ; Lynx 8bits version installation
  173. ;
  174. (if (in res 0)
  175.    (
  176.      (copyfiles (source Prog8Name)
  177.                 (dest DestDir))
  178.    )
  179. )
  180.  
  181. (complete 10)
  182.  
  183. ;
  184. ; Lynx 16bits version installation
  185. ;
  186. (if (in res 1)
  187.    (
  188.      (copyfiles (source Prog16Name)
  189.                 (dest DestDir))
  190.    )
  191. )
  192.  
  193. ;
  194. ; Init files for ARexx and convolution
  195. ;
  196. (if (= (exists (cat DestDir "/Scripts") (noreq)) 1)
  197.   (
  198.     (set choice 
  199.               (askbool (prompt #scripts)
  200.                        (help @askchoice-help)))
  201.     (if (= choice 1)        
  202.     (copyfiles (source ScriptsName)
  203.                (dest DestDir)))
  204.   )
  205.   (
  206.     (copyfiles (source ScriptsName)
  207.                (dest DestDir))
  208.   )
  209. )
  210.  
  211. (complete 15)
  212.  
  213. (if (= (exists (cat DestDir "/Filters") (noreq)) 1)
  214.   (
  215.     (set choice 
  216.               (askbool (prompt #Filtres)
  217.                        (help @askchoice-help)))
  218.     (if (= choice 1)        
  219.     (copyfiles (source FiltersName)
  220.                (dest DestDir)))
  221.   )
  222.   (
  223.     (copyfiles (source FiltersName)
  224.                (dest DestDir))
  225.   )
  226. )
  227.  
  228. (complete 20)
  229.  
  230. ;
  231. ; Color Palettes installation
  232. ;
  233. (set PalDir
  234.   (cat DestDir "/Palettes")
  235. )
  236.  
  237. (if (= (exists (cat DestDir "/Palettes") (noreq)) 2)
  238.   (
  239.     (set choice 
  240.               (askbool (prompt #Palettes)
  241.                        (help @askchoice-help)))
  242.     (if (= choice 1)        
  243.         (copyfiles (source PalName)
  244.                    (all)
  245.                    (dest PalDir)))
  246.   )
  247.   (
  248.     (makedir PalDir
  249.              (safe))
  250.     (copyfiles (source PalName)
  251.                (all)
  252.                (dest PalDir))
  253.   )
  254. )
  255.  
  256. (complete 50)
  257.  
  258. ;
  259. ; ARexx scripts installation
  260. ;
  261. (set RexxDir "Rexx:Lynx")
  262.  
  263. (if (= (exists RexxDir (noreq)) 2)
  264.   (
  265.     (copyfiles (source RexxName)
  266.                (all)
  267.                (dest RexxDir))
  268.   )
  269.   (
  270.     (makedir RexxDir)
  271.     (copyfiles (source RexxName)
  272.                (all)
  273.                (dest RexxDir))
  274.   )
  275. )
  276.  
  277. (complete 60)
  278.  
  279. ;
  280. ; Doc installation
  281. ;
  282. (copyfiles 
  283.            (source DocName)
  284.            (dest DestDir))
  285.  
  286. (complete 70)
  287.  
  288. ;
  289. ; Fonts installation
  290. ;
  291. (copyfiles (source FontName)
  292.            (dest "Fonts:")
  293.            (fonts)
  294.            (all))
  295.  
  296. (complete 75)
  297.  
  298. ;
  299. ; Assign Lynx: to DestDir
  300. ;
  301. (if (= (exists "Lynx:" (noreq)) 0) 
  302.   (
  303.     (makeassign "Lynx" DestDir )
  304.     (startup "Lynx"
  305.              (command (cat "assign Lynx: " DestDir))
  306.              (help @startup-help)
  307.              (prompt #startup))
  308.   )
  309. )
  310.  
  311. (complete 80)
  312.  
  313. ;
  314. ; Icons installation
  315. ;
  316. (if (= (exists (cat DestDir "/Lynx-8.info") (noreq)) 0)
  317.   (
  318.     (set MgWb 
  319.              (askbool (prompt #MagicWB)
  320.                       (help @askchoice-help)))
  321.     (if (= MgWb 1)
  322.       (set IconsDir "/MgWb Icons")
  323.       (set IconsDir "/Std Icons"))
  324.     (copyfiles (source IconsDir)
  325.                (dest DestDir)
  326.                (all))
  327.   )
  328. )
  329.  
  330. (complete 90)
  331.  
  332. ;
  333. ; catalog installation
  334. ;
  335. (if (= (exists "LOCALE:" (noreq)) 2)
  336.   (
  337.     (makedir (cat "LOCALE:Catalogs/" @language))
  338.     (copyfiles (source (cat "/catalogs/" @language))
  339.                (all)
  340.                (dest (cat "LOCALE:Catalogs/" @language)))
  341.   )
  342. )
  343.  
  344. ;
  345. ; Catalog description
  346. ;
  347.     (copyfiles (source "/Lynx.cd")
  348.                (dest DestDir))
  349.  
  350. (complete 100)
  351.  
  352. (exit #exit)
  353.